home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / c / sbrk.c < prev    next >
Encoding:
C/C++ Source or Header  |  1989-05-12  |  322 b   |  28 lines
  1. #include <sys/types.h>
  2. extern char end;
  3.  
  4. static caddr_t curbrk = &end;
  5. caddr_t sbrk();
  6.  
  7. caddr_t
  8. sbrk(n)
  9.      int n;
  10. { int res;
  11.   if (n==0) return curbrk;
  12.   { caddr_t x=curbrk;
  13.     char *p;
  14.     p=curbrk;
  15.     p=p+n;
  16.     res = brk(p);
  17.   
  18.     if (res==-1) error("can't set brk");
  19.     else curbrk = p;
  20.     return (x);}
  21. }
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.